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ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
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CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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SET -Sep-1984 AX-11 Bliss-32 v4. P 1 
954-080 1$-$ep-1964 90: 33: § etTuTe SReISETPRO b3ee — a) 
MODULE setpro ( IDENT = 'v04-000' 

nase ADDRESSING_MODE (EXTERNAL = GENERAL)) = 


eee pice yam er ree cen Ree 

'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

- ng! ITAL te acee mes CORPORATION, MAYHARD. MASSACHUSETTS. 

ie 

'e THIS 

'® ONLY 
I 


OFTWARE IS te | ye UNDER A LICENSE AND MAY BE USED AND gd Lt 
N ACCORDANCE W THE TERMS OF SUCH LICENSE AND WITH THE 
OF THE ABOVE. CoPymicut NOTICE. THIS SOFTWARE OR ANY OTHER 


NAN~m A 
= 


H 
} THEREOF —y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


+ 
® 
® 
® 
a 
‘ie 
oe 
® 
v 
® 
ie TRANSFERRED. ‘ 
@ 
® 
® 
® 
@ 
*® 
® 
® 
® 
ez 


os 


MEUM $8 OONAUESWN HO ODNOUS AN SOO ODNOUS Ww 


ie THE ote IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


t® CORPORATION. 


is DIG 
SOF 


ITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
OFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'ee 
FACILITY: SETPRO Command 


! ABSTRACT: 


FUSS 


tt et ah a 8 a at a 2 so sd ss ts a a a st 


This utility sets protection for files and directories. 
i ENVIRONMENT : 


SSssssssssosoess 


vd 
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i 
1 
A 
' 
! 
1 
: VAX/VMS operating system. Privileged user mode, 

AUTHOR: Greg Robert, Nov 1979 

! Modified by: 

v03-006 GAS0112 Gerry Smith 29-Mar-1983 
' 

' 

' 

! 

' 

' 

' 

i 

1 

t 


S 
Www 


NAME WN 0 OD NAMES WN —O OO 


oS 
oO 


Remove references to "ele semuend dispatcher. 


v03-005 $AS0100 Gerry Smith 12-Mar-1983 
Remove all references to old CLI interface. 


v03-004 GAS0094 Gerry Smith 19-Nov-1982 
Fix /LOG qualifier. 


v03-003 GAS0093 Gerry Smith 27-0c t-1982 
Fix protection parse Y algoritha. Also, change the 
Se tios descriptor to a dynamic one, and let the 
system de/allocate memory as appropriate. 
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SSSegeseroteees 
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ODONAUS witty 
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SSsssssssss 


MPwn— 
i ek ee ek a ed dd od dd 


Sss 


0087 


v03-002 


v03-001 


v02-006 


v205 


v204 


v203 


002 


001 


Include files 


LIBRARY ‘SYSSLIBRARY:STARLET.L32°; 


15 


N 
TARE SEE QRB:HE URED SMS etd it om 
22-0¢ t-1982 


GAsonte ferry Smith 

Hybrid 29 fhe CLI interface, so that if ppevige is 
not specified, use the new inter ace. This fixes a 
problem that keeps SET PROT=prot from working correctly. 


GAS0091 Gerry Smith 19=0¢ t-1982 
Change input request for new CLD syntax. 


MLJ0066 tl L. Jack, 29-Dec-1981 13:36 
Integrate new LIBSSET_FILE_PROT (formerly LIBSSET_PROT). 


GRR2005 ¢- R. Robert 17-Nov-1981 

Fixed handling of filespecs in confirmation and logging 

messages to use expanded string if resultant not available, 

and to use RMS parse to insure that passwords are blanked. | 
| 
| 
| 


artin 


GRR2004 G. R. Robert 16-Nov-1981 
Made all external references addressing mode general. 
GRR2003 G 4-Sep-1981 


- R, Robert 1 
Fixed jaoreper descriptor initialization in confirm_action 
by making them OWN instead of LOCAL. 


GRR2002 Greg Robert 12-Jun-1981 
Added non-fatal error message to continue 
processing files after a fatal error. 


TMHO001 Tim Halvorsen 21-Jan-1980 


Add dispatching for SET PROT/DEVICE to SETDEV and include 
code from require file into here and obsolete require file. 


! VAX/VMS common definitions 


a 
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a ee ed ed ed od ed 

WW PONOPUNONONOR Pony 2 2 oe 

SS SONOS ODNAME WNW Oboe 

pope fala la lolelolololelalolololololo! 
aii ee ed dd od od od = 8 8 8 dd 2 8 8 
ARIPONINPIPONONINININD 2 2 OO OS oe 
SISURRNONUS Sa sense aSselearenss 


Table of contents 


FORWARD ROUTINE 
setSprotection : NOVALUE, 
setpro_action 
get_output_file, 
confirm_action, 
log_results, 
expand_prot, 
parse class, 
search_error, 
clilerror; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! 
: External routines 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


a ROUTINE 
cli$get_value, 
cli$present, 


Lib$get_command, 
Lib$file_scan, 
Lib$set_File_prot, 
set$device; 


! 
: External data references 


EXTERNAL LITERAL 
set$_pronotchg; 
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SEIS SRD YAGI SMRISE NS: 


Main setpro routine 

Called for each file 

Get next output file 

Interrogate user 

Inform user of results 

Converts binary prot to ascii 
Parse protection of one user class 
LIBSFILE_SCAN error handler 
Handler for CLI errors 


Get value from CLI] interface 
Test for presence of qualifier 


! Formats ascii output 


Set privileges 

Reads from SYSSCOMMAND 

Handles stickiness etc 

Set file protection , 
SET PROT/DEVICE action routine 


! Error message - ‘Protection not changed’ 


} 


64-000 


DSSESERES 
-o Vw 


> _ _n 


a a i oe 


oo 


Wn 
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(a bb 3 ss sb 


ftw sane 


DEFINE VMS BLOCK STRUCTURES 


STRUCTURE 
BBLOCK (O, P, S, E; NJ = 


(BBLOCK+0)<P,S,E>; 


AX-11 Bliss-32 V4. 
CLIUTL.SRCJSETPRO 


0-7 
“B32; 


Page 


4 
(3) 


ibe t9He :FB:AG_ YRAGDA SLEEP kd Os ee 


> 143 140 1 MACRO 

3. 1446 141 #4 

; «6145 142 1! 

3 178 143 1! A) Macro to describe a string 

; 14 \ee 1 | B) Macro to generate a quadword string descript 

3 re 1 : iC) Macro to generate the address of a string Soccer ipeer 

; 150 129 1 PRIMDESC sate? = ZCHARCOUNT (str), UPLIT (ASCII str) 

; 151 148 1 INITDESC (str) = BBLOCK CDSCSC_S_6L NJ INITIAL (PRINDE SE (str))%, 
he ¢ 149 1 ADDRDESC (str) = UPLIT (PRIMDESC™ (str))%, 

2 ee 

3 : 5 } ¢ : : Macro to signal a condition to the handler 

; 139 154 1 

; 138 m0155 1 write GNAL sg = 

; 159 m0156 1 SIGNAL (ms $9 ! Pass the message code 
; 160 M Si2f 1 ZIF ZLENGTH GTR 1 i and if more than 1 arg 
3 1e5 3125 : THEN M SSEMAINING ZF1) %; | then the rest too 


ifedeoct gee QOsSR:SZ yan Oh is9-52 v4. 02742 Page 46 


sn 
3 


; «(164 1 1! 

; 165 1 7% Define message codes. 

3 106 1 1! 

; 165 1 

3 198 P 0164 1 Sshr -msgdet (set, 119, local, 

: 1g P0165 1 (protected, info), ' File protection changed 

: 170 Pp 198 1 (syntax severe), ! Failure in parse routines 
: 171 0167 (searchfail,error)); i Could not find file 
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1f-ep-1964 00:55:52 yaN=tt BL ie8-52 vé.0-749 


; 197 131 1! 

3 138 ' § : ; Storage definitions 

i 366 185 own 

; 3 196 1 setprosflags : BITVECTORE32] ! General DCL flagword 

5 ip } INITIAL(O), ! Initially none present 

3 205 198 1 quel i fierst lags : BITVECTORE32] ! Qualifier presence bitmap 

3 oF s' : INITIAL(O), ! Initially clear 

; 208 8 oe 1 setpro_prot : WORD ! Contains /PROTECTION value 
5 4 Bsh7 : INITIAL(O), =! In case user gives no value 
5 211 0205 1 setpro_mask : WORD ' Contains /PROTECTION mask 

3 \¢ 8 $6 : INITIAL(O), ! In case user gives no value 
5 214 9 08 1 global_mask : WORD, ' Command wide mask 

3 1? 3 +4 ; global_prot : WORD, ! Command wide protection 

3 217 0211 1 result_mask : WORD, ! Combined mask 

; 219 \¢ ! result_prot : WORD, ! Combined protection 

; $ osie : oldpriv : BBLOCK(8], ! Permanent priv's stored here 
; 232 o¢18 1 newpriv : BBLOCK(8) ! Mask describing system priv 
; ssi osif : PRESET (Corv$v_sysprvj=true), ! Initialize this bit 

3 $56 0219 1 worst_error: BBLOCK(4] ! Worst error encountered 

; 226 0220 1 INITIAL (ss$_normal); ! Initially normal status 
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' 
Define RMS block 


: 


' 


output_ filename: 
VECTOREnam$c _maxrss, BYTES, 


output _nam_result ’ 


VE 
output _nam_exp 


output _rlf: wae 


CTOR Cnam$c_maxrss,BYTE), 


anded / 
CTOR inam$c _maxrss BYTE), 


output_nam: SNAM( : 


RLF = outp 


=e 


output_fab: $F 
NAM = outp 


m 

wn” 

n” 
nunuun 


uturlf, , 
ut_ ae expanded, 
S, 
utput nen result, : 

Cc _maxrss), 


AB( 
ut_nam); 


~5ep-1984 2 99:50:38 Eaton sreSséteno:ese: 


-Sep-1984 


Place to store the file name 
Resultant output name 
Expanded output name 

Related name block 


File name block 
Point to related name block 
File name before open 


File name after open 


FAB for output 
Address of name block 
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Ib-ge “19 :33: AX-11 Bliss-32 V4.0-74 
=3007} 38? 90:33:38 CLIUTLSRCISETPRO.B32: 
GLOBAL ROUTINE set$protection : NOVALUE = 


'e4 
Functional description 


This is the main control routine for the SET PROTECTION cmd. 
It is conor from the command Language interpreter to 
set protection for files and directories. 


y 
~ 
vw 
» 
° 


Calling sequence 


set$protection (option_desc 
action routine for the /PROT 


i 

i 

i 

i 

i 

' 

: he CLI 
; ° 
' 

; Input parameters 

i 

i 

i 

i 

i 

i 

i 

i 

i 


as an 
f the SET command 


None 
Output parameters 
None 
Routine value 
Worst error encountered during processing or SS$_NORMAL. 


i So ee 
BEGIN 


LOCAL 
prot_desc : S$BBLOCK(dsc$c_s_bln], ! Protection descriptor 
status; ! Status return 


The SET command is installed with system privileges (SYSPRV), however 

we don't want the user to have this much power unless s/he 

expt ie itty asks for it. Therefore we will inspect the existing 
rivileges. If SYSPRV is true on a process permanent basis we will 
eave it alone, but if only enabled on a temporary basis (for this 
image) then we will disable the privilege 


POPOPORPONIPONO POPP Tfory 
PUPS 
QLESRANLSESSLEAEANLS SSNS AF ANIASSSRISALTNVLS Sas nr —oweo 


98 
i First we get the permanent privileges 


IF NOT (status = 
SYSSSETPRV g\ 


! Enable 
!' No mask supplied 
1 ! Permanent privileges we 
oldpriv) ! Place to deposit current privileges 
) THEN BEGIN 
write_message (.status); ' Tell the user whats wrong 
return; ! And give up 


0.000008 
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igen 1a8e 038 
i Now decide whether or not to clear the privilege 


If NOT £ sel doriviprvés. sysprv]) ! If privilege NOT permanent 


THEN BEGIN 
IF NOT (status = 
SYSSSETPRV (0, ! Disable 
newpriv,! This mask 
Temporary 
! Don’t return old mask 
) THEN BEGIN 


AX-11 Bliss-32 V4.0-7 
CLIUTL.SRC SE1PRO.832; 


write_message wag ag oe ye Tell the user what's wrong 


preturns : ve up 
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16-Sep-19 33: AX-11 Bliss-32 V4.0-74 
3735b-138e 9:30:38 CLIUTL. SRCISETPRO.B32; 
If SET PROT/DEVICE, call SETDEV module to do the job 


' 
i 
' 
if cliS$present(ZASCID "DEVICE" 
THEN ~ wae 


ots ¥ 
set$device(1); 
RETURN; 


i Parse the SET PROTECTION= value if any 


' 
Sinit_dyndesc (prot_desc); ! Make a dynamic descriptor 


FF o£} SSprenent tanec ls ‘OPTION. PROTECTION. SYSTEM’) 


BEGIN 

setpro_mask = .setpro_mask OR %x'OOOF'; 

IF cl iSpet value (ZAsCTD "OPTION. PROTECTION. SYSTEM’ ,prot_desc) 
THEN setpro_prot = parse_class(prot_desc); 


END; 
Fok renee "OPTION. PROTECTION.OWNER’ ) 


BEGIN 

setpro_mask = .setpro_mask OR %X‘OOFO'; 

IF cLiSget value (ZASCID "OPTION. PROTECTION. OWNER’ ,prot_desc) 
THEN setpro_prot = .setpro_prot OR parse_class(prot_desc)%4; 


ND; 
ok SSOreeEne TENTED *OPTION.PROTECTION.GROUP' ) 


GIN 
setpro_mask = .setpro_mask OR %X'OFOO'; 
IF cliSget_value(ZASCID "OPTION. PROTECTION. GROUP’ ,prot_desc) 
THEN setpro_prot = .setpro_prot OR parse_class(prot_desc)“8; 


If _cliSpresent (ZASCID "OPTION. PROTECTION.WORLD' ) 


BEGIN 

setpro_mask = .setpro_mask OR %xX‘'FO00'; 
IF cliSget_value(ZASCID 'OPTION.PROTECTION.WORLD' ,prot_ 
he setpro_prot = .setpro_prot OR parse_class(prot_des 


esc) 
c)*12; 


Complement the protection value since at this point, a bit set true 
indicates that we want to ALLOW access, while the system convention 
is that a bit set true indicates that we want to DENY access. 

IF .setpro_mask NEQ 0 ! If any protections specified 
HEN setpro_prot = NOT .setpro_prot; ! then get the complement 


Now save the command level protection in the global protection 
area so it can be combined with individual file specifications 
later. If the user did not supply a command level protection then 
the global_mask will have a value of zero. If no local protection 
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-$ep-1984 00:33: AX-11 Oi fs -32 v4.0-7 
ifSeont9Be 90:38:32 YANcHY OL fa9-52,¥4 0574 
} lL cause the protection of the target file 

: to value set to the current process default. 


bal_mask = .setpro_mask; 
bal~ —prot = .setpro_ “prot; 


oo 


Per ygene canes D ‘LOG') 


3 
P 
! 
} Parse command qualifiers 
q 
q = cli$present(ZASCID "CONFIRM ); 


qual i itier$tlagsfquat log] = 


ualifier$flags(qual— contirmi 


: Loop thru all output files specified 
WHILE get. _output_file () DO 


LibSfile_scan ( 
Output_fab ’ 
setpro_ “action, : 
search error) ! 


' For each output file 


! Search = file names 
“using this file name 
“call here on match 
“call here on error 


END; 
RETURN; 
END; 
-TITLE SETPRO 
-IDENT \Vv04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
00 00 45 43 49 56 45 44 Q0000 P.AAB: .ASCII \DEVICE\<0><0> 
010E0006 00008 P. ‘ 17694726 
00000000" 0000C ADDRESS P.AAB 
52 50 2€ “f 4F 49 54 50 4F Beate P.AAD: .ASCII \OPTION.PROTECTION.SYSTEM\ 
40 45 54 53 59 53 2E 4E 4F OODTF 
Q010E0018 00028 P.AAC: .LONG 17694744 
52 50 2€ 4&6 4F 4 Aa’ ae a 8 P.AAF ASC TT NOP TION PROTECTION. SYSTEM\ 
4D 45 f 5 59 3 3 SE 4F 80 F 
010E0018 00048 P.AAE: .LONG 17694744 
at? ae 2 Boner ADDRESS P.AAF 
52 50 2 4E 4F 49 54 50 4F it P.AAH: .ASCII] \OPTION. PROTECTION. OWNER\<0> 
00 52 45 4E 57 4F 2E 4E AF Obes 
Hs FE 0 P.AAG: .LONG 17694743 
09 0000° O855 ADDRESS P.AAH 
52 50 2 46E 4F 49 54 50 4F 070 P.AAJ: .ASCII \OPTION. PROTECTION. OWNER\<0> 
00 52 45 4E 57 4F 2E 4E 4° O7F 
918 oon? 88 P.AAL: .LONG i 4 
0 0° Bf ADDRESS P.AAJ 
5 28 43 4E 4F 49 54 GF P.AAL: .ASCII  \OPTION. PROTECTION. GROUP\<0> 
4F 52 47 2E GE 4F O9F 


¥O4~000 


49 56 43 45 56 4F 35 


49 546 43 45 56 4F 36 
0 


49 546 43 45 56 4F Pf 


Mm 16 
16-Sep-19 :33: AxX-11 Bliss-32 V4.0=-74 
§79007 1382 90:33:98 CLIUTL. SRC SETPhO ogee 
01 0017 AB P.AAK: .LONG 17696743 
; EE OF 649 «(S46 oP" s P.AAN Aer TE OPTION PROTECTION. GROUP\<0 
eAAN: — oe > 
et ee eS 
01 0017 C8 P.AAM: .LONG 17694743 
50 2 4E 4F 49 54 — oP 5 P.AAP Toe ESS eT TON PROTECTION. WORLD\<0 
eAAPs — J > 
44 4C 5 4F 57 3¢ 4E 46 O00DF . 
oi 0017 O0E8 P.AAO: .LONG 17694743 
50 26 GE GF 49 54 s wr FE PAAR “Ascii \OPTION PROTECTION. WORLD\<0 
° es ° m <> 
44 4 5 4F 57 3¢ SE GF Gort . 
91060017 108 P.AAQ: .LONG 17694743 
0060000" 001 ¢ ADDRESS P.AAR 
00 47 4F 4C 00110 P.AAT: <ASCII \L06\<03 
16000 0114 P.AAS: .LONG 17694723 
0000000° O18 -ADDRESS P.AAT 
00 4D 52 49 46 4E 4F 4 11C P.AAV: <ASCII \CONF 1RM\<0> 
10€000 00124 P.AAU: .LONG 17694727 
0000000" 00128 -ADDRESS P.AAV 
.PSECT SOWNS,NOEXE,2 
00000000 00000 SETPROSFLAGS : 
00000000 00004 QUALIFIERSFLAGS: 
0000 00008 SETPRO_PROT: , 
0000 0000A SETPRO_MASK: 3 
0000¢ GLOBAL _MASK: , 
0000€ GLOBAL _PROT : . 
00010 RESULT_MASK: 
.BLKB 2 
00012 RESULT_PROT: 
-BLKB 2 
90014 OLDPRIV:.BLKB 8 
00# OO01C NEWPRIV:.BYTE  0C3) 
10 O001F “BYTE 16 
90020 “BLKB 4 
00000001 00024 WORST ERROR: - 
00028 OUTPUT _FILENAME : fe 


90127 “BLKB 
0128 OUTPUT_NAM_RESULT: 


-BCKB 


$8 outrun oud 


-BCK 
02 $0858 ourput_Rifs 
BYTE 


60 00329 “BYTE 


$35 


56 


8 
3 


A 
0000000¢ 
a8 
90000000 90 
009000. 0¢ 
0004 0038¢ 
0008 
008 9035 
0000000 0035 
0000000 0035¢ 
09 09 
0 00361 
00 00362 
8 sue 
00 00365 
00# 00366 
90900000 00568 
00000000 0086C 
00000000 00376 
00000000 00374 
90000000 90378 
00000000 0037¢ 
00000000" 00380 
00388 
60 00389 
FF 003A 
00 00388 
00000000" 0088C 
00 00390 
00 00391 
FF 0039¢ 
00 0039 
00000000° 00394 
00000900° 00398 
0008 0039¢ 
00008 OO3AC 
90008 00382 
90000000 0038 
0000000 BC 
00 003cO 
0 003C1 
0 o08¢g 
00 0038¢ 
00 O05¢4 
0 00385 
00# 0036 
0000000 003c8 
5000000 008¢c 
0000000 00300 
9000000 0034 
0000000 00308 


~Sen-19B4 90:55:32 


AX-11 Bliss-32 V4.0-74 
CLIUTL.SRCJSETPRO.B32; 


oe Hi 


| oe] 
™m 
wu 


Le] 
™~m 
ws 


on 

a 
Oo 
z 
a 


-BYTE 
ADDRESS OUTPUT_NAM_RESULT 
BYTE 


@w 
< 
“ 
m 
o;1oo 


TPUT_NAM_EXPANDED 
TPUT "RLF 


fe 


Woe e =e 


te) ee | 


@ 
«< 
~ 
m 
SOSOS]O9 000090252 
Mm 
a 


-— 
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G 
- LONG bc23 
FAB: 


_ 
— 
i] 
@ 
“4 
m 
Sete 


“BYTE 30 


WMNOOLOOFrFO Wom 
ca 


Q 

‘ 0 

5 -BYTE 
0 


& 
= 


oO 
WMRMOOC BNA LSOMIO@oOLOOe® 
. 
mo 
oO 
z 
C7) 


NG 
“ADDRESS OUTPUT_NAM 


00000000 
00000000 
0000 


Dee Se Be Be Be Be Be Se Be Se Be Se Se Se Se Be Be Se Se Se Se Fe Se Se Se Se Se Se Se Se Se Se 


00 
00000000 
_VALUE, CLISPRESENT 
* SYSSSETP 

* COMMAND 
E_SCAN  IBSSET FILE_PROT 
SDEVICE, SET$_PRONOTCHG ~ 
ePSECT SCODES,NOWRT,2 


LENTRY SETSPROTECTION, Save R2.R3.R4,R5.R6,R7 
MOVAB PARSE CLASS, R? 


0 
0 
0 
0 
0 
0 
0 
0 
° 0 
-LONG 0 
0 
0 
0 
0 
0 
C 
S 
L 
L 
S 


0248 


ENT, 
MOVAB ; TPR 0. PROT, RS 


PUSHAB zien 0297 


of WI@n"Ooom" 
OOoovoo 
rommmmrrn 

COOOOCOOooOooooo 

hae ay gh Omen pare at | 


MOCO rOOCOo°OOm™ 
SOOooooooooooo 
COOOOCOCOOOCoooo 
MOONS -OUVIN IN 
5 
1-2 
~m 
Se Se Se Se Se Ge Be Ge Se Se Se oe 


#1, =(SP) 
CALLS #4, SYSSSETPRV 
MOVL RO, 


a ——————————————————————————— — — ——————— —— 


vb4~000 


1A OF 


000000006 


000000006 


02 


02 


03 


50 


oo 
ow 


re OOO 
Wort Won 


—f OVWeo OO 
oF WON Ou 


14 


0000" 


020E0000 
04 
0000" 


0000" 


0000° 


FO 
0000" 


0000" 


0000° 


0000" 


MOON NOOVIMON NOVION MN OVIVIOO MDBNOOMMOVIMNONMMNOMOO FPO COOUV;OOM OWWMONP VOM 
CO NOD MOM MM BHO MOO —$ MOM BWM NO NO—MOMFBMNO— MMH —3O— TN —MMVOLMUWMEr 


1G 


NOVVGVOTNIOMNOONIOMIO"O OWN 
Cd OD SOD OAD IU BB EAA 


COOCCCCOCOCCOC COCO OCOCOOCOCOOOOOOOOOCOoOoO 
SSSNOo SON moo aOmMmM oO rw & NPS MO PUTO 


Go0000 
m 


Coococe 
ooono 
oor— 


eh oS SS SO SSS SSS SS SSS SSSSSSS eee 
oOo 


ooo 
woww 
~r— 


oOo 
Oww 
—rn > 


So 
oOo 
> 


COOOCOCOCOCOCOCOOCOCSCOCOCOCOCOCOCOCOOCCOOOOCOSCOOOCOOCOCOCOOOOOOOOOOOOOOOOOOOOOOoOO 


om 
OW "WOW SC OM "9 O08 "OLDS OD "9008 "O90 OW "OOOO "LOL DS OM *FDWVIWOPDL MOO 


MANnOPY NNOMOVCOM OPO NOM OVC OM"OW MOMNOVD 


SOOO OO SS SSS SSSSs 
o 
m 


1$: 


2s: 


3$: 


6$: 


1 
Sep-19 
Sep-19 


Be 29:30:38 Eetiut.*see Sse tenos8327 1 


STATUS, 1$ 
#4, OLDPRIV+3, 2% 
(§p) 


NEWPRIV 

-(SP) 

#4, SYSSSETPRV 
RO, STATUS 


STATUS, 3 
STATUS 
#1, LIBSSIGNAL 


P.AAA 
#i, CLISPRESENT 

RO, 3$ 

#1, SETSDEVICE 
#34471936, PROT_DESC 
PROT_DESC+4 

P.AA 

#i, CLISPRESENT 

#15, SETPRO_MASK 

SP 


P.AAE 
#2, CLISGET_VALUE 
RO, 4$ 


#1, PARSE_CLASS 
RO. SETPRO_PROT 


#i, CLISPRESENT 
#240, SETPRO_MASK 
P.AAI 

#2, CLISGET_VALUE 
RO, 5$ 

SP 

a PARSE CLASS 
RO, ' SETPRO_PROT 
#i, CLISPRESENT 
#15, SETPRO_MASK+1 
SP 


P.AAM 
#3, CLISGET_VALUE 
RO. 68 


#1, PARSE CLASS 
#8. RO, R 
RO, SETPRO_PROT 


P. AAO 
ei, CL ISPRESENT 
RO. 7$ 


1 
sEIPRO, ifoSenr}964 90:55:32 yaNet Blisg32 v4. 0-742 


03 «a3 FO gf 88 OOOEA BISB2 #240, SETPRO_MASK+1 
E pp OEF PUSHL SP 
0000" CF 9F 1 PUSHAB P.AAQ 
65 : Fe FS CALLS "e, CL ISGET_VALUE 
0c E F BLBC—S.—s«RO, 
—E DD OOF PUSHL § 
6? a. FD CALLS #1, PARSE_CLASS 
50 9 7 1 ASHL. #ie, RO, R 
AB 001 BISW2 RO, SETPRO PROT 
0 02 A : 9197 7$: MOVZWL SETPRO_MASR, RO 
6 § B 9010p MCOMW SETPRO PROT, SETPRO_PROT 
06 =A ° BO 00110 8$: MOVW RO, GLOBAL_MASK 
06 A3 63 B0 00114 MOVW  SETPRO_PROT, GLOBAL_PROT 
0000" CF 9F 00118 PUSHAB P.AA 
64 gi FB 0011C CALLS #1, CLISPRESENT 
FC OAS 01 01 aa 30 £0 OO11F INSV RO. #1, #1, QUALIFIERSFLAGS 
64 01 FB 00129 CALLS #1, CLISPRESENT 
FCA 01 02 50 FO 0012¢ INSV : #1, QUALIFIERSFLAGS 
0000v cr 90 FB 001 é 9$: CALLS #0, Ei ufPUT_FILE 
O000v CF 9F $013A PUSHAB SEARCH_ERROR 
O000v CF 9F 0013E PUSHAB SETPRO-ACTION 
03E0 c3 9F 00142 PUSHAB OUTPUT ~FAB 
000000006 00 O re po146 CALLS tf LIBSFILE_SCAN 
04 OO14F 108: RET 


; Routine Size: 336 bytes, Routine Base: $CODE$ + 0000 
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en 


33 


LLL OE EEO ER EES FH 
— 
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FRRRRRRRRRRRREE 
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F 1 
16-Sep-1984 00:33: AX-11 Bliss-32 V4.0-742 Page 19 
-Sep-1984 90:35:36 CLIUTL. SRCISETPRO.B32:1 7 (11) 

ROUTINE setpro_action (fab): = 
' Ee = 
; Functional description 
i This routine is called from Lib$file_scan whenever 
a file name match occurs 
Input parameters 
i fab = Address of block describing the file 
} fab$l_nam = pointer to name bloc 
Output parameters 
! First error encountered, or TRUE is RETURNed 
i Se 
BEGIN 
MAP fab: REF BBLOCK; ! Define fab block format 
BIND nam = .fablfab$l_nam]: BBLOCK; i Define name block 
LOCAL 

p_res_mask, ! Enable-mask parameter 

p_res_prot, ! Value-mask parameter 

final-prot: WORD, ' Recieves final protection 

desc: VECTOR(2), ! Temporary sting descriptor 

status; ! Recieves status 


! 
! If /CONFIRM was set by the user then interrogate him to see if 
: this file is to be unlo 


cked 
fr 5 Gust {Fier StL agelquet_seation?) ! If confirmation requested 
IF NOT (confirm_action ( ! Call confirmation rout. with 
-fa ! address of fab 
THEN return(false); ! If not confirmed then exit 


Now load the local descriptor with the file name size and address 
from the nam block 


—— 


desc(0] = .nam{[nam$b_rslJ; ! Load file name size 
desc(1) = .nam(nam$l_rsaj; ! Load file name address 
' 


i But if this is a non-wildcarded network specification, then filescan 
‘ doesn't do the $SEARCH, so we use the expanded file specification instead. 


PRIPIPOFPOPPIPIPIPIPOPYININPININD HAAR CPP PP NYPI PIPPI NIPININIPIPINYDD 2 = 8 2 9 tt 


IF .nam Cnam$b_rsl] EQL 0 


atin 


1 
SETPRO 18-sep-19 4 00:33: AX-11 Bliss-32 V4.0-742 Page 20 
-000 -Sep-1984 330538 tet Ture. SReiSETPRO.832:1 . (11) 
47 THEN BEGIN 7 
qoocnes = snamy neney 20k ; ! Load file name size 
agent 1J = .naminam$l_esal; ! Load file name address 

4 7 

i Compute the parameters for Libsset_file_prot. If no /PROTECTION value was 
484 ! specified, call with null parameters for enable-mask and value-mask to cause 
Be ! protection to be set to the process default. 
88 p_res_mask = result_mask; ! Assume not default 

p res_prot = rey. cprets ; 
490 F .résult_mask EQL ! If no protection values specified, 
red THEN p_res_mask = p_res_prot = 0; : pass null parameters 
49 048 : 
494 0484 ! Call Lib$Sset_file_prot to set file protection 
495 0485 : 
496 0486 
497 0487 


IF NOT (status = Lib$set_file_prot ( Call Library routine with 
de - file name 


Fk ek el ee et tek ek ee 
G2 C2 Ce Cp CD CD OD i 
Oo w = 
Oooo SREREREE 
Zs Oo rp RR PRN RPA APS 
wr WN — OVO ENOUES Ww —OVO@ 
== PIPIPIMIAPIPINIPINININ ANNAN NAIA NAINA PIPPI PPOPURINUNININVPI NIN NIN 


' 
' 

499 0489 -P_res_mask, ! = result mask 

500 0490 -P_res_prot, ! = result protection 

501 0491 final_prot)) ! = final protection returned 
502 49 : by LibSset_file_prot 
503 HEN 
ane 0494 BEGIN 

05 P 0495 write_message ( ! Tell the user of error 
506 P 04 set$_pronotchg,! = ‘‘Not changed’ error message 
507 P 0497 Ve ! = 1 FAO arguement 
508 P 0498 desc, ! = descriptor of filename 
509 0499 -Status); ! © original error 

10 0500 return (.status); ! Return to the caller 

11 0501 ND; 

i B206 

1 050 
514 0504 : 
515 0505 ! If /LOG was set then do it 
218 9306 ; 

17 050 
518 0508 IF (.qualifier$flagsCqual_log]) ' if Logging requested 

238 fat THEN log_results (.fab,.final_prot); ! then call the Logger 

354 0511 RETURN (true); 

522 Bale 

525 051 END; 


001C 00000 SETPRO_ACTION: 
<WORD Save R2,R3,R4 > 0409 
54 0000" CF 96 9000 MOV QUALIFIERSFLAGS, R4 ; 
SE 0c C2 0000 SUBL2 #12, SP 


H 1 
¥O4-000 "Srsep-19ee 21:50:38 ECL TutLssnesseteno-e3e+1 Pee 44} 


4 AC DO OO000A MOVL FAB, R : 0432 
33 oi A My a00¢ MOVL  40(R3), R2 : 
OA 64 9 E1 091 BBC #2, QUALIFIERSFLAGS, 1$ + 0446. 
DD O16 PUSHL R + 0449 
0000v CF gi FB 001 CALLS #1, fONFIRM_ACTION : 
0 ; 9010 LBC. =—s«RO,- 68 ; 
04 AE 03 A2 9A 00020 15 MOVZBL 3(R2), DESC 3 0457 
08 AE 04 =A 0 0025 Ove  4¢R2), DESC +4 + 0458 
03 A2 95 OROZA TSTB 36 ) + 0465 
OA 12 (002d NEQ $ : 
046 AE 0B A2 9A J002F MOVZBL 13(R2), DESC + 0467 
08 AE o¢ Ae 0 00034 MOVL  12(R2). DESC+4 ; 0468 
51 C AS % 00039 2S: MOVAB RESULT_MASK, P_RES_MASK t 0478. 
50 OE Ad oF 003D MOVAB RESULTPROT, PTRES~PROT + 0479 
OC ad B5 00041 TSTW RESULT “MASK + 0480. 
02 12 00044 BNEQ 3$ ; 
50 7C 00046 CLRQ PP _RES_PROT + 0481. 
4001 8F BB 00048 3$: PUSHR #*™M<RO,SP> : 0490. 
51 DD 0004C¢ PUSHL P_RES_MASK + 0489. 
10 AE 9F O004E PUSHAB DESC + 0487 
000000006 00 04 FB 00051 CALLS 4&4, LIBSSET _FILE_PROT ; | 
52 50 90 00058 MOVL RO. STATUS : | 
18 52 Ee 00058 BLBS _— STATUS, ug : | 
52 DD OC05E PUSHL STATUS > 0499 
08 AE 9F 00050 PUSHAB : 
01 DD 00063 PUSHL #1 ; 
000000006 8F DD 00065 PUSHL #SET$_PRONOTCHG ; 
000000006 00 04 FB 00068 CALLS #4, LYBS$SIGNAL : 
52 b0 0 00072 MOVL STA 10s. RO : 0500. 
OA 64 01 ft 00076 4$: BBC . QUALIFIERSELAGS, 5$ : 0508. 
7E gf 3 C O007A MOVZWL FINAL_PROT, -(SP) : 0509 | 
5 D 0007D PUSHL R3 3 
0000v CF 02 FB 00075 CALLS A? LOG_RESULT- : 
50 01 Ap 00084 5$: MOVL #1. RO™~ > 0511 
04 00087 RET : 
50 D4 00088 6$: CLRL = RO > 0513 
ba 0008A RET : 


; Routine Size: 139 bytes, Routine Base: S$CODE$ + 0150 
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PAA 


1 
IgoSep-19B4 QO:3R:52  yANeI Bliag-32 v4_0274 
ROUTINE get_output_file = 


! Functional Description 


Obtain the next file specification from the ae file 
List and perform the initial parsing to ensure legality. 


i Output Parameters 


' 

' 

' 

' 

1 

: RETURNs TRUE if a file name was obtained 
RETURNS FALSE if the command Line is exhausted 
' 

' 

! 

! 


output_fab = FAB initialized for current file name 
output_nam = NAM block associated with FAB 


BEGIN 

LOCAL 
prot_desc : S$BBLOCKEdsc$c_s_bln], ! Descriptor to define protection 
file_desc : SBBLOCK[dsc$c_s_binj; ! Descriptor to define filename 


CHSFILL(O, dsc$c_s_bln, file_desc); 
file_descldsc$w_Tength) = nam$c_maxrss; 
file desc(dsc$a_pointer] = output_filename; 


If the output file List is depleted, then exit. 


F NOT cli$get_value(ZASCID ‘FILE’, file_desc) 
THEN RETURN false; 


' 

Otherwise, continue processing. Put new filename into FAB. 
output_fab fab$l_fna] = {i te.desch decha_pointer J: 
output_fablfab$b_fns] = .file_descldsc$w_lengthJ; 

! 

Get protection values (if any) for this file 


CL et 


setpro_prot = 0: ' Clear any left over values 
pro_mask = 0; ! Clear any left over values 
c cli$present(ZASCID ‘PROTECTION’) 
BEGIN 
Sinit_dyndesc(prot_desc); ! Make protection descriptor dynamic 
ff 5} ‘toresantCEAscie *PROTECTION.SYSTEM’) 
BEGIN 


BB PMA AAINIGMPINNININIPDNINIAIPINININPINIPIPINIPINONININININIPIPININIDD 4 2 St I es 


setpro_mask = .setpro_mask OR %X‘OOOF'; 
IF cliS$get_value(ZASCID "PROTECTION. SYSTEM’ ,prot_desc) 


SETPRO 

y54-000 

5 Be 571 
; 3 ae: 
$ 2 

: 5 74 
3 575 
; 278 
3 2 57 

: 389 re 
; e3) 0580 
BE 
: 59% 5 

; 595 bene 
3 23° 0585 
3 97 0286 
; 4598 058 

; 599 0588 
; 600 0589 
3; 601 0590 
; 60¢ 0591 
; 60 Beg 
3: 604 059 

; 605 0594 
; 606 0595 
; 08 b899 
: 609 0598 
: 610 0599 
3: 611 0600 
3 oi¢ 0601 
s 61 Beng 
; 6146 060 

3; 615 0604 
: 819 0608 
: Sig $608 
; 620 0609 
3; 621 0610 
; oc¢ 0611 
; 6 bole 
: 626 061 

: 625 $618 
; 626 615 


00 00 


54 53 59 53 2€ 


st -1984 3: AX-11 Bliss-32 V 
if 3epn as 29:80588 | LenTuT see isespnoc ose, 
THEN setpro_prot = parse _class(prot_desc); 


IF cliSpresent (2ASCID *PROTECTION.OWNER') 
GIN 


setpro_mask = .setpro_mask OR %x'OOFO'; 
If cliSget. value(ZASCID ‘PROTECTION. OWNER’ prot_desc) 
THEN setpro_prot = .setpro_prot OR parse_ class (rot. desc)*4; 


EN 
IF cl iSpresent (RASCID "PROTECTION. GROUP* ) 


BEGIN 

setpro_mask = .setpro_mask OR %X'OFOO'; 

IF cliSget. value(ZASCID 'PROTECTION.GROUP’ ,prot_desc) 

THEN setpro_prot = .setpro_prot OR parse_ class (prot. desc)*8; 


END; 
IF _cliSpresent (ZASCID "PROTECTION. WORLD’) 


BEGIN 
setpro_mask = .setpro_mask OR %Xx'F000'; 
IF cliSoet.. value(ZASCID 'PROTECTION.WORLD' (prot. desc) 


HH setpro_prot = .setpro_prot OR parse_class(prot_desc) “12; 


é 

4 

4 

4 

4 

4 

4 

4 

4 

4 
' 
i Complement the protection value since at this point, a bit set true 
i indicates that we want to ALLOW access, while the s —_ convention 
is that a bit set true indicates that we want to DENY access. 


Halide prot = NOT .setpro_prot; 


i i Build the combined protection values. That is, apply the command 
i Level protection first, and then any local protection values 
i ; supplied with this parameter 


OR masks 


eeu mask = 
= ~piege: pe part 


Siebel mask OR .setpro_mask; 
result_prot 


(.globaT_prot AND CW T Tsetpro_mask)) pa 
wi 
“local part 


(.setpro_prot AND .setpro_mask); 
RETURN true; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


65 4C, 49 46 0120 P.AAX: ASCII. \FILEN 
1060004, O18) P:AAU: LONG 17694724 
GE GF 49 54 43 45 56 OF 52 $0 00138 P.aaz: “ASCII \PAOTEGT TOW\<O><0> 
83050008" Borde MANE ONG ss pga 
bE 4F 49 54 43 45 54 GF 5250 OO1C PLABB: “ASCIT \PROTECTION. SYSTEM\<O><O><0> 


roe 


ee 
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LMPIMININ— — OO 


CO NIN SUIT SIND 


COOoOoooooooooooo 
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ib-se- 


1986 21:50:38 


AX-11 Bliss-32 V4.0- 


Sep- CLIUTL.SRCJSETPRO.B32; 
P.ABA: -LONG 17694737 
P.ABD: .ASCII \PROTECTION.SYSTEM\<0><0><0> 
P.ABC: -LONG 17694737 
P.ABF: . ASCII \PROTECTION.OWNER\ 
P.ABE: -LONG 17694736 
P.ABH: <ASCII  \PROTECTION.OWNER\ 
P.ABG: .LONG 17694736 
-ADDRESS P.ABH 
P.ABJ: ASCII  \PROTECTION.GROUP\ 
P.ABI: .LONG 17694736 
-ADDRESS P.ABJ 
P.ABL: ASCII \PROTECTION.GROUP\ 
P.ABK: .LONG 17694736 
“ADDRESS P.ABL 
P.ABN: ASCII \PROTECTION.WORLD\ 
P.ABM: .LONG 17694736 
“ADDRESS P.ABN 
P.ABP: ASCII \PROTECTION.WORLD\ 
P.ABO: .LONG 17694736 


GET_OUTPUT FILE: 
- WORD 


-PSECT 


“ADDRESS P.ABP 


SCODES ,NOWRT ,2 


Save R2, p R4,R5,R6,R7,RB,RI,R1I0 


. R 
cLISGEN VALUE, R8 

sETPRG PROT, R6 

#0, (SP), #0, #8, FILE_DESC 


#255, FILE DESC 
pda UT “FILENARE 


2, “Lider. VALUE 


FILE_DESC+4 


aS’ 

FILE_DESC+4, OUTPUT_FAB+44 
FILE-DESC, OUTPUT_FAB+52 
SETPRO_PROT 


#i, CLISPRESENT 


742 
1 


Pa9e 183 


Bete Se Se Se Se Se Se Fe Se Se Fe Se Se Se Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Fe Fe Fe Se Se Se 


Pete Se Se Se Se Se Se Se Se Se Se Se Se Se Be Be Se Se Se 


0514 | 


1 
B18 NSECIORL SRBRG MEU SUeasBeth 2 fat] 


03 50 &8 051 BLBS =_«aRO, -2$ : 
00A7 31 00054 BRW rs : 
08 AE 02060000 8F 00 00057 2s: MOVL  #34471936, PROT_DESC + 0564 
C AE D4 0005F CLRL _— PROT_DESC44 : 
0 A? 9F 0006 PUSHAB P. + 0566 
69 1 FB 06 CALLS #1, CLISPRESENT : | 
19 0 6 LBC : 
02 Ab F 88 00068 BISB2 #15, SETPRO_MASK t 0569 
08 AE OF 9 F PUSHAB PROT_DESC : 0570 
4C A? OOF or re PUSHAB P.AB ; 
ra 08 FB v CALLS #2, CLISGET_VALUE : 
09 F 90078 BLBC ~=—_«aRO,_ 38 ; 

08 AE 9F 00078 PUSHAB PROT DESC + 0571 
6A 1 Fe poor CALLS #1, PARSE CLASS r 
£6 0 BO 00081 MOVW RO, SETPRO_PROT : 

64 A? 9F 00084 3S: PUSHAB P.ABE : 0573 
69 01 FB 00087 CALLS #1, CLISPRESENT ; 
1D 50 E9 0008A BLBC ; 

02 A6 FO 46 BFE 88 ~0008D BISB2 #240, SETPRO_MASK : 057 
08 AE OF 00092 PUSHAB PROT DESC : 057 
7C =A? 9F 0009 PUSHAB P.AB ; 

68 02 FB 90098 CALLS #2, CLISGET_VALUE : 
0c 50 9 0098 BLBC ~—=_«aRO, & ; | 
08 AE SF 0009E PUSHAB PROT DESC : 0578. 

6A 01 FB OO0AT CALLS #1, PARSE_CLASS ; 

50 10 C4 D00A4 MULL . : 

66 50 A8 000A7 BISW2 RO, SETPRO_PROT ; 
0094 C7 OF OOOAA 4$: PUSHAB P.ABI : 0580 

69 01 FB OOOAE CALLS #1, CLISPRESENT : 

1E 50 €9 000B1 BLB R : 

03 Ab OF 88 000B4 BISB2 #15, SETPRO_MASK+1 : 058 

08 AE OF 00088 PUSHAB PROT_DESC : 058 
OOAC C7? 9F 000BB PUSHAB P.AB : 
68 02 FB O00BF CALLS #2, CLISGET_VALUE ; | 
OD 50 9 000¢ BLBC = «aR, 5 : | 
08 AE SF 000¢ PUSHAB PROT_DESC : 0585. 
6A 01 Fe 000¢8 CALLS #1, PARSE_CLASS ; 
50 50 08 78 000CB ASHL * RO, R ; 
66 50 AS OOOCF BISW2 RO, SETPRO_PROT ; 
00C4 C7? 9F 00002 5$: PUSHAB P.ABM : 0587 
69 61 FB 00006 CALLS #1, CLISPRESENT ; 
1F 50 00009 BLBC Osa ; 
03 AG FO 6 BF_sSs 8B ~000DC BISB2 #240, SETPRO_MASK+1 : 059 
08 AE 9F OO0ET PUSHAB PROT DESC : 059 
OODC C? OF O0DES PUSHAB P.ABO : 
68 08 FB 00E8 CALLS #2, CLISGET_VALUE F 
0D E O0EB BLBC ~—=s_-«aRO,. 6S ; | 
08 AE OF OEE PUSHAB PROT DES : 0592. 
6A o1 F OOF CALLS #1, PARSE CLASS ; 
50 50 O¢ 78 O00F4 ASHL. #12, RO : 
66 AB 000F8 BISW2 RO, SETPRO PROT ; 
66 £6 Be OOFB $$ MCOMW SETPRO_PROT, SETPRO_PROT > 0600 | 
08 Ab 06 Ab 02 Ab A 6 FE 7$ SW3  SETPRO-MASK, GLOBAL“MASK, RESULT_MASK ; 0608. 
1 06 Ab ; 105 MOVZWL GLOBAL“PROT. R1 : 0609 
0 02 A 3C 001 VZWL SETPRO-MASK, RO ; 
1 50 CA 9100 BICL2 R : 
0 66 3C 0011 MOVZWL SETPRO_PROT, RO : 0611 


WEB 


OA A6 


; Routine Size: 297 bytes, 


50 


Routine Base: 


02. =A 36 
D 

CA 

Ag 

01 00 

04 

50 D4 

04 


SCODES + 01DB 


i 


st - 
Sep- 


19be 99:86:88 Eek TUtL saeSse fend 
MOVZWL SETPRO_MASK, R2 
MCOML Re, R 
BICLO Re. 
BISWS 1, RO, RESULT_PROT 
MOVL #1, RO 
RET 
CLRL = RO 
RET 
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SE 


As 


N 1 
$$ep-19be 21:50:38 LELTUtL sae Sse teno-b36; Pane 8) 


ROUTINE confirm_action (fab) = 


! 
Functional description 


This routine is called from the main loop whenever 
confirmation is requested. 


Input parameters 


fab = Address of block eta pe the file 
fab$l_nam = pointer to name bloc 


Output parameters 


TRUE ==> Action should be taken 
FALSE ==> Action should be canceli 4 


BEGIN 


MAP fab: REF BBLOCK; ' Define tab block format 
BIND nam = .fablfab$l_nam): BBLOCK; i Define name block 


file.desc: BBLOCK(Cdsc$c_s_bin], ! file_descriptor for file name 
fao desc: BBLOCK{dsc$c_s_bin], ! FAO work area descriptor 
reply_desc: 0 OK dscSc_s blnJ ! Buffer desc. for reply 


! size = 0 
BYTE (dsc$k_dtype_t), : arguement type = ascii 
BYTE (dsc$k_class.d), ! class = dynamic 
LONG (0)); ! pointer = 0 
LOCAL 


status: BLOCK(1], 
Length : WORD, 


char, 
fao_buffer: VECTOR(512,BYTE); 


' Recieves status 

' Length of resultant message 
! Character work area 

' FAO work area 


! 

i Initialize descriptors with: 

; 1) FAO buffer ==> fao_desc 

2) file name --> file_desc 

fao_desc(dsc$w_length] = 512; ! FAO work area size 
fao_desc(dsc$a_pointer] = fao_buffer; ! FAO work area address 

{i le-desebdectu. length) = ,namCnam$b_rsl]; ! Resultant file name Length 
file_descldsc$a_pointer]) = -nam(nam$l_rsai; ! Resultant file name address 
If .nam Cnam$b_rsl) EQL 0 ! If resultant name is blank 
THEN BEGIN ; then use expanded name 


SETPRO ~~“ 
| ¥04=000 
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PRIA AIAAIGTIPIPINPI APPIN PIPINPININI WAIL | IRI II IRI POPPIN IWIN NI WII fnnununuww 


AX-11 Bliss-32 V4.0-74 
CLIUTL.SRCJSETPRO.B32; 


ifeseo-1964 goss: 


Poe 48) 


fice desc(dsc$w_length] = .namC(nam$b wot; - expanded file name Length 


file descldsc$a_pointer] = .nam{nam$T_esa 


: Now call SYSSFAO to expand message 


IF NOT (status = SYSSFAO ‘ 


addrdesc("!AS, change protection? or 


Length, 
fao_désc, 
tile_desc)) 


THEN 
BEGIN 
write_message (.status); 
return (.status); 


of the FAO call as a prompt string 


fao_desc(dsc$w_length] = .length; 


IF NOT (status = LIBSGET_COMMAND ( 
reply_desc, 
fao_desc)) 

THEN 
BEGIN 
IF (,.status EQL rms$_eof) 
THEN status(sts$v_severity] = 
sts$k_severe; 
write_message (.status); 
posers (.status); 


status depending on its value 


IF (.reply_desc(dsc$w_length) EQL 0) 
THEN return (false); 


- expanded file name address 


' Call system service with 
! -message- oy oppress 


“place ‘o put result Length 
! edescriptor of a work area 
! one FAO arguement 


' Tell the user 
! Return to the caller 


Now question user by calling LIBSGET_COMMAND using the result 


! Move in prompt string size 


' Call Library routine with 
! reply buffer desc. addr. 
! prompt string desc. addr. 


If this was end of file then 
make it a severe (i.e. non- 
returnable) error 

Tell the user 

Return to the caller 


Now retrieve one charater from the buffer and set the return 


! Did user hit <CR>? 
' Yes, return false 


char = CHSRCHAR (CHSPTR (.reply_desc(dsc$a_pointer))); 


IF (.char EQL ‘Y* OR 
char EQL ‘y* OR 
-char EQL ‘T* OR 
char EQL ‘t") 

THEN return (true) 

ELSE return (false); 


: of user responded *y' 
or +t (TRUE) 
or “9% 


Return ‘TAKE ACTION‘ 
Return ‘CANCEL ACTION’ 


] 
I 


<v 


2 
‘BUBo WgSeoe|aRs QOEEHE YAS, OLLe4c PE NG O39 rane 8 
ios ht. 


| 
| 
| .PSECT $PLITS,NOWRTNOEXE ,2 


30 78 oF 30 $3 


$1 68 63 2 gc P.ABR: .ASCII \!AS, change protection? (Y or N): \<0> 


C 53 41 4 
6E 6F 6 $3 $3 3 
00 20 3A 29 é 
eASCII <0> 
00 8 P.ABQ: .LONG 
00 C .ADDRESS P.ABR 
-PSECT SOWNS,NOEXE,2 
00438 FILE_DESC: 
00440 FAO_DESC: s 
0000 00448 REPLY_DESC: 
WORD 
OE 0044A -BYTE 


02 00448 -BYTE 
00000000 0044¢ - LONG 


-PSECT $CODES,NOWRT,2 
000C 00000 CONF IRM_ACTION: 
. WORD 


Save R2,R3 : 0616 
53 0000" CF 9€ 0000 MOVAB FAO DESC, R3 ; 
5E FDFC CE 9€ 000 MOVAB -518(SP). SP : 
50 04 AC 00 0000C MOVL FAB, RO > 0641 
50 28 AO DO 00010 MOVL  40(RO), RO : 
63 0200 8F B80 00014 MOV) #512, FAO DE : 0665 
06 A’ 04 AE 9E 00019 MOVAB FAO BUFFER, FAO_DESC+4 > 0666 
FB OA 03 AO 98 00016 MOVZBW 3(RO), FILE_DEST > 0668 | 
FC OAS 04 Ad DO 0002 MOVL  4(RO), FILETDESC+4 - > 0669 
03 Aad 95 00028 TSTB =. 3(RO) : 0671. 
OA 12 00028 BNEQ = '1$ : | 
FB AB 0B AO 9B 00020 MOVZ2BW 11(RO), FILE_DESC > 0673 
i -&s 0¢ ad 00 909 g MOVL  12(RO), FILEDESC+4 > 0674 
F8 AS OF 00037 18: PUSHAB FALE _DESC : 0682 
5 bb 0003A PUSHL R : 
08 AE 9F 0003C PUSHAB LENGTH ; 
0000" CF 9F O003F PUSHAB P.AB > 0684 
000000006 00 04 FB 00043 CALLS #4, SYSSFAO ; 
3¢ 0 00 004A MOVL RO. STATUS : 
2 52 £9 00040 BLBC TATUS, 2$ > 0682 
63 6— 80 9005 MOV LENGTH, FAO_DESC : 0699 
5 bp 005 PUSHL R : 0701 
08 A3 9F 0005 PUSHAB REPLY DESC : 
000000006 99 FB 00058 CALLS #2, LTBSGET_COMMAND ; 
09 005F MOVL S ; 
18 E8 00062 BLBS STATUS, 3$ : 


re) 


52 


; Routine Size: 


0001827A =F é 1 
03 00 6 r6 
000000006 00 f re 
50 52 6 

04 

08 A3 B3 

50 oc &§ 9A 

00000059 8F 3. % 
00000079 =F 30 1 
00000054 = 8F 50 Di 
09 13 

00000074 = =8F 50 D1 
04 12 

50 01 D0 

04 

50 D4 

04 


180 bytes, Routine Base: S$CODE$S + 0304 
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DVYVIWO MOUTON 


RVBBVS 
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Ww 
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AX-11 Bliss-32 V4.0-74 


1986 99:30:38 


CLIUTL.SRCJSETPRO.B32; 
CMPL satus. #98938 
BNEQ $ 
INSV #4, #0, #3, STATUS 
PUSHL TAT 


CALLS #1, LIBSSIGNAL 
mOVL STATUS, RO 
TSTW - REPLY_DESC 
BEQL 

MOVZBL @REPLY_DESC+4, CHAR 
CMPL CHAR, #89 

BEQL 

CMPL CHAR, #121 
BEQL «6s 4$ 

CMPL CHAR, #84 

BEQL «6s 4$ 

CMPL CHAR, #116 
BNEQ 

MOVL #1, RO 

RET 

CLRL RO 

RET 
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0706 
$707 

709 
0710 


0719 


0722 
0724 


0725 
0726 
0727 
0729 
0731 


ea es 
2 

| SETPRO IB-Se0-19 4 00:33: AX-11 Bliss-32 V4.0-742 Page 31 
v04-000 =3e0 7138s 330538 tetiuti sre SETPRO.B32;1 . (14) 
> 745 07 ¢ 1 ROUTINE log_results (fab, final_prot): = 

; 746 07 1 

3 767 0734 1 !-=-- 

; 748 O7s> 1: Z 

: 749 07 § 1 ! Functional description 

3; @0 07 1! 

: 751 0738 1! This routine is called from the main loop whenever 

3 ey; 0739 1! Logging is requested 

3; 79 0740 1! 

: 754 0741 1 ! Input parameters 

Be es, tox 1! 

; P36 07435 1! fab = Address of block describing the file 

; 0744 1! fab$l_nam = pointer to name bloc 

; 758 0745 1! 

, 0746 1 ! Output parameters 

: 760 0747 1! 

; 761 0748 1! First error encountered, or TRUE is RETURNed 

; 0749 1! 

s 0750 1 !---- 

; 764 0751 1 

; 765 O36 BEGIN 

; 766 075 

; 767 0754 LITERAL d 
3 i Bee § pbufsize = 32; ! Buffer for generating string 
3 oy 164 2 MAP fab: REF BBLOCK; ! Define fab block format 

3; 772 0759 : BIND nam = .fab(fab$l_nam]: BBLOCK; ! Define name block 

3s 775 0760 

: 77% 0761 LOCAL , 

; 75 64 status:, ' Recieves status 

s 0763 2 pbuf: VECTOR gyeteteeSvtES. : Place for protection string 
3 707 0764 2 pdesc: VECTORE2], : Temporary string descriptor 
3; 778 0765 2 esc: VECTORC2), ! Temporary string descriptor 
5 444 6708 § prot_table: VECTOR(4); ! Protection string table 

3; «6781 0768 § IF .namCnam$b_rsl] NEQ 0 ! IF result string nonblank, 
; 782 0769 THEN BEGIN : : 

3; 7383 0770 ; gooey = .namC(nam$b_rsl]; ! then display it 

: 784 0771 desc(1] = .nam(nam$l"rsaJ; 

; «6785 Bite 3 END y 

; «786 077 ELSE IF .nam{Cnam$b_esl] NEQ 0 ! Or if expanded name nonblank 
: 787 0774 THEN BEGIN : 7 

; 788 348) desc(0] = .nam([nam$b_es1]; ! then display it 

; 789 776 desc(1} = .nam[nam$l“esaJ; 

: 790 0777 END 

; 791 0778 ELSE BEGIN : Kit 

3 a3 0779 desc 9} = .fab(fab$b_fns]; : Otherwise, use original 

: 79 0780 desc(1) = .fablfab$l_fnaJl; ! name string in FAB 

: 794 378) END; 

, 209 07 ; 

: 796 078 : f < 

; 797 0784 ! Now build the resultant protection string from the value passed 

: 798 OR ! in the call. 

; 799 786 : 

: 800 0787 g 

; 801 0788 expand_prot ( ! Call sub with 


- <o | 


r--— 


ro 2 
SETPRO 16-Sep-1984 00:33: AX-11 Bliss-32 V4.0-742 Page 32 
v04-000 g7308713 4 90:35:38 CLIUTL.SRCJSETPRO.B32; 1 ° (14) 
; 80 0789 prot_table, ! eplace for the result 
3 ti pray -final_prot); ! final protection value 
; 805 BP6 pdesc to} = pbufsize; ! Initialize descriptor size 
; B08 079 pdescliJ = pbuf; ! Initialize descriptor address 
; 80 0794 
; 808 0795 If NOT (status = 
; 809 P 4443 SFAOL §( : Call system service with. 
; 810 P 079 CTRSTR = ADDRDESC (°S:!AS,0:!AS,G:!AS,W:!AS'), ! =-FAO se 
> 811 P 0798 OUTLEN = pdesc(0J, : place for resultant Length 
3 Si¢ P 0799 OUTBUF = pdesc, ! output buffer descriptor 
s. 6B 0800 4 PRMLST = prot_table) ! address of list of args 
> 814 0801 ) THEN BEGIN 
; 815 bans write_message (.status); ! Oops, tell the user 
; 816 080 return (.status); ! And exit immediately 
; 817 0804 3 
>; 818 0805 ; ’ 
; 819 P 0806 write_message (set$_protected, ! Inform user with 
> 820 P 0807 2. ! -two FAO arguements 
; 821 P 0808 desc, ! file name — 
> 822 0809 § pdesc); ! new protection 
; 823 0810 
; 824 0811 2 RETURN (true); 
3s Ges pets 2 
; 826 08135 1 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
21 3A 47 2C 53 41 21 SA 4F 2C 53 41 21 3A 53 00240 P.ABT: .ASCII \S:!AS,0:!AS,G:!AS,W: !AS\<0> 3 
00 53 41 21 3A 57 2C 53 41 O0024F 3 
00000017 00258 P.ABS: .LONG 23 : 
00000000' 0025C ADDRESS P.ABT $ 
-EXTRN SYSSFAOL 
-PSECT S$CODES,NOWRT,2 
000C 00000 LOG_RESULTS: 
-WORD Save R2,R3 ; 0732 
53 00000000G 00 9€ 00002 MOVAB LIBSSIGNAL, R3 : 
SE CO AE 9E 00009 MOVAB -64(SP), SP ; 
51 04 aC 00 0000D MOVL FAB, R1 ; 0759 
50 28 Al 00 00011 MOVL 40(R1), RO ; 
3 Ad 95 00015 TSTB 3(RO) : 0768 
0c 13 00018 BEQL 1$ 3 
10 AE 03 AQ 9A QOOIA MOVZBL 3(RO), DESC ; 0770 
14 AE 04 AO DO QOOIF MOVL 4(RO), DESC+4 ; 0771 
1B 11 00024 BRB 3$ : 0768 
0B AO 2 0026 1$ TSTB 11(R0) ; 0773 
0c 13 00029 BEQL 2s 3 
10 AE 0B AO 9A 000 MOVZBL 11(RO), DESC ; 0775 
14 AE 0c . 9 8 at pe(RO), DESC+4 ; 9778 
10 AE 3 Al 9A 3 23 MOVZBL 3 ¢R1), DESC 3; 0779 
14 AE C Al p00 0005C MOVL 44(R1), DESC+4 ; 0780 


SETPRO 
Vv 


-000 


Routine Size: 


140 bytes, 


Routine Base: 


os AC pp Oot 
4 A F 00044 
0000v CF 8 Fe 0047 
18 AE DO 0004C 
“u & 20 AE 9E See 
5E dD 0005 
1¢ =6AE 9F 00057 
20 AE OF 44 Ft 
0000" CF 9F 0005D 
000000006 00 oe FB 00061 
36 0 dO 00068 
0 2$ E8 Baoee 
52 DD 00 ° 
63 4 FB 000 
50 2 00 0007 
04 00076 
18 AE 9F 00077 
14 AE 9F QOO7A 
02 0D 00070 
007712AB 9 8F DD 0007F 
63 04 FB 00085 
50 01 p00 00088 
04 00088 


SCODES + 0388 


p. - 
aia 


Ww 
> 


4$: 


1986 99:50:38 


AX-11 Bliss-32 V4.0-742 
CLIUTL.SRCJSETPRO.B32; 1 


F INAL_PROT 
PROT TABLE 

- EXPAND _PROT 
2, PDESC™ 

peur PDESC+4 


PDESC 
gh 


- ABS 
#4, SYSS$FAOL 
RO, STATUS 
STATUS, 4$ 


TUS 
#1, LIBSSIGNAL 
STATUS, RO 


PDESC 
ESC 


#7803563 
#4, LIBSSIGNAL 
#1, RO 
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SETPRO 16-Sep-1984 00:33: AX-11 Bliss-32 V4.0-742 Page 34 
v04-000 ~9een 1 8be 89:80:38 oT SRE ise tenoco3004 | 9435 
; 828 0814 1 ROUTINE expand_prot (table, protection): = 

; 829 0815 1 > 

; 830 Bai8 1 leeee 

> 831 0817 1! 

,; & § 0818 1 ! Functional description 

; § 0819 1! 

>; 834 0820 1! This routine fills a given VECTOR with the addresses of 
; tH os 1 : strings corresponding to a given protection word. 

; 837 08 : 1 ! Input parameters 

; 838 0824 1! 

3; 83 0825 1! table = Address of the table to be filled in. 

; 840 0826 1! protection = Protection word. 

3; «6841 0827 1! 

3 ote 0828 1 ! Output parameters 

: 84 0829 1! 

3 6844 0830 1! table has been filled in with the addresses of gosce eters 
> 4845 0831 1! of strings describing each type of user (SYS,OWN,GRP,WORLD). 
; 846 ett 1! 

3; 847 0833 1 !---- 

> 848 0834 1 

: 849 0835 BEGIN 

; 850 0836 

; 851 0837 BIND 

; 852 0838 § prot_table = .table: VECTOR(4); ! Table of addresses 

; 853 0839 

: 854 0840 20 . gi 

3 855 0841 2 prot_values: VECTORC16) INITIAL( ! Protection descriptions 
; 856 084 2 ADDRDESC('RWED'), 

3 Oo 084 2 ADDRDESC('WED'), 

; 858 0844 2 ADDRDESC('RED'), 

; 859 0845 2 ADDRDESC('ED') 

: 860 0846 2 ADDRDESC(*RWD'S, 

; 861 0847 2 ADDRDESC( WD"), 

3 Bc6 0848 2 ADDRDESC( RD"), 

; 86 0849 2 ADDROESC("D*), 

: 864 0850 ADDRDESC('RWE"), 

3; 865 0851 ADDROESC('WE'), 

; 866 tht ADDRDESC('RE'), 

: 867 085 ADDRDESC(°E') 

: 868 0854 ADDRDESC('ihw'S, 

3; 869 0855 § ADDRDESC('W'), 

; 870 0856 ADDRDESC('R'), 

; 871 0857 ADDRDESC('')); 

; 87 0858 

: 87 0859 2 INCR index FROM 0 TO 3 DO ire 

3 Boe neey prot_tablel.index] = .prot_values C.protection<. index*4,4>]; 
: 876 086 RETURN (true); ' Always return true 

: 877 086 

; 878 0. 1 END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
44 45 57 52 00260 P.ABV: .ASCII \RWED\ : 
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00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


4 0004 
00 9" 
44 4 
00000003 
vat iat ‘ 
44 4 
4444 
0000000° 
00 44 4 
0000000 
00 9009 y 
44 
6° 0000 
st a's 9 
00 44 5 
00000002 
00000000' 
00 44 52 
44 
00000000° 
00 00 44 
00000001 
0099009 ‘ 
45 57 5 
0000000 
00000000' 
00 45 57 
00000002 
00000000" 
00 45 5 
0000000 
00000000" 
00 00 45 
00000001 
00000000' 
00 57 35 
0000000 
set * tas 3 
00 00 5 
staid 
a at 
00 00 5 
00000001 
00000000° 
00000000 
00000000° 


00000000" 00000000" 00000000' 00000000° 00000000' 00000000° 


00000000* 00000000° 00000000° 00000000‘ 00000000' 4 
00000000* 00000000* 00000000° 0000 


000° 
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a 3:50:38 


«LONG 4 
eADDRESS P.ABV 
sASCII = \WED\<0> 
-LONG 3 
«ADDRESS P.ABX 
vt year 
-ADDRESS P.A 
-AS 
»ADDRESS P.ACB 
-ASCII "ment 
«LONG 

»ADDRESS P.AC 


D 
eASCII \WD\<0><0> 


-LON 
- ADD 


eL 
»ADDRESS P.A 


CH 
eASCII \D\<0><0><0> 


«LONG 
«ADDRESS P 
ASCII 
«LONG 
»ADDRESS P.A 


CL 
eASCII \WE\<0><0> 
NG 


LO 
eADDRESS P.A 


CN 
eASCII \RE\<0><0> 


«LON 
- ADDRESS 


P.ACP 
eASCII \E\<0><0><0> 
LONG 1 


[ADDRESS P 


R -ACR 
eASCII \RW\<0><0> 


«ADDRESS P.A 


CT 
ny? \W\<0><0><0> 


- LON 
-ADDRESS P.A 


CV 
eASCII \R\<0><0><0> 


-LO 

»ADDRESS P.ACX 
BLKB 0 
-LONG 0 
eADDRESS P.ACZ 


-PSECT SOWNS,NOEXE,2 


PROT_VALUES: 


-ADDRESS P.ABU, P.ABW, P.ABY, P.ACA, P.ACC 
CE, P.ACG, P.ACI, P.A 
oe P.ACS, P.ACU, 


P.A 
P.ACQ 


AX-11 Bliss-32 V4.0-742 
CLIUTL.SRCJSETPRO.B32;1 


2 
CIl a ><0> 


RESS P.ACE 
eASCII = \RD\<0><0> 
ONG 2 


ACJ 
—— 


Pee Re Se Se Be Oe Se Se Oe Se Se He Be Se Be Be Bs Be Be Se Se Se Se Se Se Se Se Se Be Se Be Be Se Se Be Se Se Se Se Se Be Se Be Se Be Be 


‘eal 


<a 


LSS 
Pete Se Se Se Oe Oe Oe Se Se Se we Oe Be SHS Se Se Se Se Se Se Se Se Se Se Se Se Oe Se Se Se SH Sear Oe Be ee 


SETPRO 
v04-000 


51 


; Routine Size: 


52 
08 ac 


EA 


30 bytes, 


50 
04 
04 BC40 
50 
50 


Routine Base: 


0000'CF 


oofkuMow 


WW" NNO 


ibesto-1964 gossE: 


.PSECT 
0004 00000 EXPAND_PROT: 
. WORD 
D4 00002 CLRL 
78 00004 1$: — ASHL 
EF 00008 EXTZV 
DO 0000E MOVE 
F3 00016 AOBLEQ 
DO OO01A MOVE 
04 0001D RET 


SCODES + 0444 


AX-11 Bliss-32 V4.0-742 
CLIUTL.SRCJSETPRO.B32;1 


SCODES,NOWRT ,2 


ION, R1 
+ @TABLECINDEX] 


a 


K 2 
$rStp-1986 21:50:38 Eetiun sae Sseteno-e32: Page 48) 


; BO O86 ! ROUTINE parse_class (desc) = 

: Be OBE? | tees 

3 0868 1! 

; +94 1 ! This routine parses one class of user (e.g. SYSTEM, OWNER, GROUP, WORLD) 
; 885 3 0 1! to see what protection is allowed. The value returned in the low 4 bits 
; 886 0871 1 ! is the protection code, with the bits set to reflect that access is 

: Hf ba5§ : } requested. Note that this is exactly the opposite of what the system wants. 
: 0874 1! Inputs: 

; Boe Sere i DESC d inti he ASCII i f th 
; : -- a descriptor pointing to the representation of the 
; 9 0877 ; } protection desired ° : 

; 0879 1 i--- 

3 0880 1 

: 96 pee) : BEGIN 

; 89 Oss MAP desc : REF SBBLOCK; 

: 900 OB8s 5 LOCAL 

; 901 0886 2 pointer, ' Pointer to String 

: 308 +484 2 result; ! Resultant protection 

: 904 0889 2! - 

: 44 Baas Initially set the value to all zeros, no access 

: 907 0892 ¢ result = 0; 

: 909 0894 : 

: 910 0895 : Scan for the occurrence of each keyletter, and, if it is there, set the 
: at) +444 § appropriate bit. 

; 913 0898 pointer = -desc(dsc$a_pointer); 

; gis 0899 NCR. index FROM 1 to .descldsc$w_length] DO 

: 916 0901 LOCAL char : BYTE; 

; 917 0902 char = CHS$RCHAR_A(pointer); 

3; 918 0903 IF .char EQL‘R' 

; 919 0904 THEN result = .result OR %x‘'1' 

: 920 0905 ELSE IF .char EQL ‘Ww’ 

3; 921 0906 THEN result = .result OR %x‘2' 

: 92 0907 ELSE IF .char EQL ‘E‘ 

3 38 0908 OR .char EQL ‘P' 

: 924 0909 THEN result = .result OR %x‘'4' 

: 925 0910 ELSE IF .char EQL ‘D‘ 

; 926 0911 OR .char EQL ‘L’ 

: 927 bots THEN result = .result OR %x‘'8' 

; 928 0 ELSE SIGNAL_STOP (set$_syntax, 1, .desc); 

: 929 : ; END; 

; 6 TURN .result; 

: a D; 


; Routine Size: 101 bytes, Routine Base: SCODE$ + 0462 


2 J 

SETPRO 1S -1984 00:33: AX-11 Bliss-32 V4.0-742 Page 38 } 
¥O4-000 HITS Me MT ee ra ae te 9 18) \ 
007C 00000 PARSE_CLASS: : 

«WORD Save R2,R3,R4,R5,R6 3 0865 : 

52 06 AC 00 00002 MOVL DESC Re + 0898 ; 

26 04 A2 00 00006 MOVL 4 (R25, POINTER : ; 

$ C OO00A MOVZWL (R2), R5 + 0899. ; 

¢ 9900 CLRO INDEX : | : 

4C 11 0000F BRB $ : | : 

50 86 90 00011 1$ MOVB  (POINTER)+, CHAR + 0902, ; 

52 BF 91 00014 CMPB SHAR, #82 : 0903. : 

05 \2 0018 BNEQ $ : ; 

54 gi ‘ O01, BISB2 #1, RESULT > 0906 | : 

E 11 0001D BRB : | ; 

57 BF 30 3 0001F 2$ CMP HAR, #87 + 0905. ; 

54 ¢ 3 §0058 BISB2 #2, RESULT 3 0906. ; 

11 00028 BRB ; ; 

45 BF 0 91 0002A 3$ CMPB = CHAR, -#69 + 0907. ; 

06 13 000 E BEQL : ; 

50 BF 0 91 000 CMPB  =s- CHAR, -«#80 : 0908. ; 

32 i 00034 BNEQ 3 | 3 

54 4 88 00036 4$ BISB2 #4, RESULT + 0909. F 

g¢ 11 00039 BRB 3 | : 

44 8F 0 91 tg 5$ CMPB CHAR, #68 ; 0910. i 

06 13 0003F BEQL : | : 

4C BF 50 91 00041 CMPB  =s- CHAR, «#76 : 0911. : 

05 fF 00045 BNEQ 7? : 3 

54 08 88 00047 6$ BISB2 #8, RESULT + 0912 ; 

11 11 0004A BRB Ba ; F 

52 DD 0004C 7$ PUSHL R2 + 0913) : 

01 DD 0004 PUSHL ; : 

007710FC 8F DD 00050 PUSHL 03132 ; : 

000000006 99 03 Fe 00056 CALLS #3, LIBSSTOP : | : 
0 5 55 £3 0005D 8$ AOBLEQ R5, INDEX, 1$ > 0899 | : 
50 54 0 00061 MOVL RESULT, RO ; 0916 | ; 

04 00064 RET : 0917. : 


“ 


9 
9 
9 
9 
9 
9 
9 
9 
9 
9 


Faerrw 


vv 


fowleleleleleleleajloleleleleleleleleiolo) 


ODOODOOOOOOOOOOOOO O00 


= PONINIPINPININININI NAIA AAI IAAI AIP PIPPIN 2 9 tt 4 0 tt OO OS OS OS OS OS SS 
. . 


ROU‘ INE search_error (fab): 


! 
' Functional description 


This routine is called from RMS w 
occurs during an RMS file functio 


i Input parameters 


' 

' 

' 

! 

! 

' 

: 

: fab = Address of block used in th 
} fab$l_nam = pointer to name block 
' 

' 

' 

' 

! 


i Output parameters 
FAB status is returned 
BEGIN 


MAP fab: REF BBLOCK 
BIND nam = .fabl fab$l _nam]: BBLOCK; 


LOCAL desc: VECTOR(2); 
neste rst) NEQ 0 


IF 
THEN B 

F.. 3 -nam(Cnam$b_rsl]; 
desc(1J] = .nam[nam$i— “rsal; 


ND 
ELSE IF .namC(nam$b_esl] NEQ 0 
THEN BEGIN 

Gooch) = ,nam(nam$b_esl); 
descli] = .nam(nam$l"esa); 


END 
ELSE esc{O 
1 


desc 
desc 
N 


. fablfab$b ~{ns}i 
- fablfab$l—fna 


— 


write moccoge(cets. searchfail,1,DESC, 
{abt rapet: stds 
RETURN (.fab(fab$l_stsJ); 

END; 


0004 00000 
5E 08 C2 00002 


m 2 
$oSep=i9ee 21:50:38 ECU TUtLSsneSsetPRose32: Rag! | 


-7 
32; 


henever an error 
n call. 


e RMS call. 


Define fab block format 
Define name block i 
Temporary string descriptor 
IF result string nonblank, 


then display it 


Or if expanded name nonblank 
then display it 


Otherwise, use original 
name string in FAB 


Output an error message 
with fab error code 
and secondary code 


SEARCH_ERROR: 
WOR Save R2 ; 0918 
SUBL #8, SP 


AX-11 Bliss-32 v4 o55e9 


teh iure sReise TPRO.BS 31 


iSesep-1964 gos3R: 8 


-000 


SETPRO 


Vv 


- WW KRONOS WMOOr%U eo 
zs Jy VW Om o 
Go fF Sooo BGoooo o 
o S&S Sooo OOoOo°oooO oo 


PS FSFe Fe Fete *e Fete tata tetera teste tea tetera te 


w ~w — 
wv + 7 < 
+ eV YVuUA = 
Vv mm wwa Oo 
o nw ww www - 
e wu oa aaw no 
aa a one 
Ns es es Wow 
e-~ es mt a= oO we 3 
a en ene en BD mous 
“oO oO &¢& Ge aanww oOo w 
@wa aga w~ ~w ~witw @© cz 
Ov ORO~— MOK OK VONST MS We Nw 
FMM PNT MM OU UNF DOB BzBO 
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aj@OoIN OMoIMNMY NIOGOTIITI4 
>>-O>>0--9O9>>0 >>> > 
OomMwWwooegtvwwoocoo0edsds 2. 2=<ow 
Zz-—-OFFOr-ODEFEZTOSTEZAQAQAvree 
ced fa A 
- uN /m 


OOmmMzO- MM hor LOOuU OOMOy 


SOC CO O-OOKn-FOr-O Adu OO 
LMC DOOPCODOOO UN We & NTU 
<q<aqdtodd-ceoadcatodcaeectcowodk 
Ton Mas © Ow w-weoo ac @w 
oONmOo CoO fo SCO MNCS Ss o 
- 
~ 
~ 
oS 
oO 
NO wu ww wl oo 
mw oct ot Oocter own 
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o 
o 
o 
o 
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o 


81 bytes, Routine Base: S$CODE$ + 04C7 


; Routine Size: 


Routine Size: 17 bytes, Routine Base: $CODES + 0518 


| SETPRO 529-19 4 00: AX-11 Bliss-32 V4.0 
-000 ig: -Sep-1984 4 3 33: i CLIUTL.SRCJSETPRO. a3 
; «984 967 1 ROUTINE cli_error (cli_block.error): = 
E eee ee : , “ 
$ 389 396 1! 
3; «6988 ada 1 ! Functional description 
: 989 He zz 
; 990 0975 1! This routine is called as an error handler for 
; 991 0974 1! CLI errors. 
; 838 0975 1! 
; 99 0976 1 ! Input parameters 
: 39¢ 44 i i Li.block = Add f CLI block 
3 : c ock = ress of CLI request bloc 
; 996 0979 1! error = CLI error message . 
; 997 0980 1! 
; 998 0981 1 ! Output parameters 
; 999 0982 1! 
; 1000 0983 1! Input ‘error’ is RETURNed 
: 1001 0984 1! 
3 Ie 0985 1 !---- 
: 100 0986 1 
3; 1004 0987 2 BEGIN 
; 1005 0988 2 : 
3; 1006 0989 2 MAP cli_block: REF BBLOCK; ! Define CLI request block 
3; 1007 0990 2 
3; 1008 0991 § signal_stop(.error); 
3; 1009 099 
3 1010 099 § RETURN (.error); 
3 1011 0994 
3 1012 0995 1 END; 
0000 00000 CLI_ERROR: : 
-WORD Save nothing 
08 AC DD 00002 PUSHL ERR 
00000000G 00 01 FB 00005 CALLS #1, LIBSSTOP 
50 08 aC 00 0000C MOVL ERROR, RO 
04 00010 RET 
| 


Se) See eR Ie SRE a TS Se Ed Nae LE EE a RS ee Ee AE 


Page 41 
9° 18) 


Ss 


| SETPRO Sep-1984 00:33: AX-11 Bliss-32 V4. Page 42 
if sen 1984 aS Me MTT ee tata OP 9° 19) 
3 1014 0996 1 END 
; 1015 0997 0 ELUDOM 
~EXTRN LIBSSIGNAL, LIBSSTOP 
; PSECT SUMMARY 
: Name Bytes Attributes 
> SOWNS 1168 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) 
> SPLITS 796 NOVEC,NOWRT, RD ,NOEXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(2) 
: SCODES 1321 NOVEC.NOWRT, RD. EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(2) 
: Library Statistics 
; Rats PAN es, Se eh mer) ew ee Symbols -------- Pages Processing 
. File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 58 0 581 00:01.0 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:SETPRO/OBJ=OBJ$:SETPRO MSRC$:SETPRO/UPDATE=(ENH$: SETPRO) 


3; Run Time: 327. 
; Elapsed Time: 01:59.6 
3 Lines/CPU Min: 2202 

; emenay Noe le 21945 

3 Y Used: 154 pages 
; — ation Complete 


so 


1321 code + 1964 data bytes 
06:27.2 


— 


<4 


— 


005 AH-BT13A-SE EQUIPMENT CORPORAT 
| VAX/VMS V4.0 NTIAL AND PROPRIETA 


ION 
RY 


1054 AH-BT13A-SE . ae T CORPORATION 
= VAX/VMS V4.0 PROPRIETARY 


